home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / demolar / lokman / DISK1 / _SETUP.4 / Group1 / Demo8E.exe / 0 / RCDATA / TFORMTARA / TFORMTARA.txt
Text File  |  1998-07-30  |  3KB  |  144 lines
  1. object FormTARA: TFormTARA
  2.   Left = 4
  3.   Top = 17
  4.   BorderStyle = bsDialog
  5.   Caption = 'Takas Arama'
  6.   ClientHeight = 391
  7.   ClientWidth = 618
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'Arial'
  11.   Font.Style = [fsBold]
  12.   Position = poScreenCenter
  13.   OnClose = FormClose
  14.   OnCreate = FormCreate
  15.   PixelsPerInch = 96
  16.   TextHeight = 14
  17.   object Panel2: TPanel
  18.     Left = 0
  19.     Top = 0
  20.     Width = 618
  21.     Height = 391
  22.     Align = alClient
  23.     BevelInner = bvLowered
  24.     BorderWidth = 4
  25.     Caption = 'Panel2'
  26.     TabOrder = 0
  27.     object Label1: TLabel
  28.       Left = 70
  29.       Top = 336
  30.       Width = 35
  31.       Height = 14
  32.       Caption = '_____'
  33.     end
  34.     object Label2: TLabel
  35.       Left = 15
  36.       Top = 336
  37.       Width = 54
  38.       Height = 14
  39.       Caption = 'Aranan: '
  40.     end
  41.     object DBGrid1: TDBGrid
  42.       Left = 6
  43.       Top = 6
  44.       Width = 606
  45.       Height = 324
  46.       Align = alTop
  47.       DataSource = DataSource1
  48.       FixedColor = clSilver
  49.       Font.Color = clBlack
  50.       Font.Height = -11
  51.       Font.Name = 'Arial Tur'
  52.       Font.Style = [fsBold]
  53.       ParentFont = False
  54.       ReadOnly = True
  55.       TabOrder = 0
  56.       TitleFont.Color = clBlue
  57.       TitleFont.Height = -11
  58.       TitleFont.Name = 'Arial Tur'
  59.       TitleFont.Style = [fsBold]
  60.       OnKeyDown = DBGrid1KeyDown
  61.       OnKeyPress = DBGrid1KeyPress
  62.     end
  63.     object BtnSEC: TBitBtn
  64.       Left = 309
  65.       Top = 352
  66.       Width = 104
  67.       Height = 27
  68.       Caption = 'Se∩┐╜'
  69.       Font.Color = clNavy
  70.       Font.Height = -12
  71.       Font.Name = 'Arial Tur'
  72.       Font.Style = [fsBold]
  73.       ModalResult = 1
  74.       ParentFont = False
  75.       TabOrder = 1
  76.       OnClick = BtnSECClick
  77.     end
  78.     object BitBtn2: TBitBtn
  79.       Left = 498
  80.       Top = 352
  81.       Width = 104
  82.       Height = 27
  83.       Caption = 'Vazge∩┐╜'
  84.       Font.Color = clNavy
  85.       Font.Height = -12
  86.       Font.Name = 'Arial Tur'
  87.       Font.Style = [fsBold]
  88.       ParentFont = False
  89.       TabOrder = 2
  90.       Kind = bkCancel
  91.     end
  92.   end
  93.   object DataSource1: TDataSource
  94.     DataSet = AraTakasTab
  95.     Left = 287
  96.     Top = 5
  97.   end
  98.   object AraTakasTab: TTable
  99.     DatabaseName = 'ECZ'
  100.     IndexFieldNames = 'ECZADI;TARIH'
  101.     ReadOnly = True
  102.     TableName = 'takas.db'
  103.     Left = 260
  104.     Top = 5
  105.     object AraTakasTabECZADI: TStringField
  106.       DisplayLabel = 'Eczane Ad∩┐╜'
  107.       FieldName = 'ECZADI'
  108.       Size = 24
  109.     end
  110.     object AraTakasTabTARIH: TDateField
  111.       DisplayLabel = 'Tarih'
  112.       DisplayWidth = 8
  113.       FieldName = 'TARIH'
  114.       DisplayFormat = 'dd/mm/yy'
  115.     end
  116.     object AraTakasTabILACAD: TStringField
  117.       DisplayLabel = '∩┐╜r∩┐╜n Ad∩┐╜'
  118.       DisplayWidth = 30
  119.       FieldName = 'ILACAD'
  120.       Size = 36
  121.     end
  122.     object AraTakasTabADET: TSmallintField
  123.       DisplayLabel = 'Adet'
  124.       DisplayWidth = 4
  125.       FieldName = 'ADET'
  126.     end
  127.     object AraTakasTabTUTAR: TCurrencyField
  128.       DisplayWidth = 15
  129.       FieldName = 'TUTAR'
  130.     end
  131.     object AraTakasTabTIP: TStringField
  132.       DisplayLabel = 'Takas Tipi'
  133.       DisplayWidth = 10
  134.       FieldName = 'TIP'
  135.       OnGetText = AraTakasTabTIPGetText
  136.       Size = 1
  137.     end
  138.     object AraTakasTabNO: TIntegerField
  139.       FieldName = 'NO'
  140.       Visible = False
  141.     end
  142.   end
  143. end
  144.